home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 April
/
1994-04b.d64
/
random functions
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
285b
|
10 lines
10 rem random number functions
20 def fn r0(x)=int(rnd(1)*x)
30 rem returns integer from 0 to x-1
40 def fn rx(x)=int(rnd(1)*(x+1))
50 rem returns integer from 0 to x
60 def fn r1(x)=int(rnd(1)*(x-1))+1
70 rem returns integer from 1 to x-1
80 def fn pb(x)=(rnd(1)<(x/100))
90 rem returns true x% of the time